home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1297.dms / var1297.adf / Rexx / EP_Getmodnamescrol.dopus < prev    next >
Text File  |  1993-06-30  |  656b  |  42 lines
  1. /* Eagleplayeransteuerung über Diropus (Modulname)
  2.    (c) 1993 Henryk Richter
  3. */
  4. options results
  5.  
  6. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  7.  address 'DOPUS.1'
  8.  toptext 'Eagleplayer-Port not found'
  9.  exit 0
  10.  end
  11.  
  12. address 'rexx_EP'
  13. status g ply
  14. aha = result
  15. if aha="yes" then
  16.   do
  17.    status m fil
  18.    name = result
  19.    address 'DOPUS.1'
  20.    call scrol name
  21.   end
  22.  else
  23.   do
  24.    address 'DOPUS.1'
  25.    toptext 'No Module playing !'
  26.   end
  27. exit
  28.  
  29.  
  30. scrol:
  31.  parse arg text
  32.  
  33.  text = space(text,1,'A0'X)
  34.  text = copies('A0'X,80) || text || copies('A0'X,80)
  35.  
  36.  if length(text) > 80
  37.   then
  38.    do char = 1 to length(text)
  39.     toptext substr(text,char,80,'A0'X)
  40.    end
  41. return
  42.